﻿Module Module1
  Sub Main()
    Console.WriteLine("Esempio 1: " & _
        "inserimento dei mesi " & _
        "in ordine inverso")
    Dim pila As New Stack
    Dim matrice() As String = _
        {"Dicembre", "Novembre", _
        "Ottobre", "Settembre", "Agosto", _
        "Luglio", "Giugno", "Maggio", _
        "Aprile", "Marzo", _
        "Febbraio", "Gennaio"}
    For i As Integer = 0 To 11
      pila.Push(matrice(i))
    Next
    Console.WriteLine("N. elementi " & _
        "presenti prima " & _
        "dell'estrazione: " & pila.Count)
    For i As Integer = 0 To 11
      Console.WriteLine(pila.Pop())
    Next
    Console.WriteLine("N. elementi " & _
        "presenti dopo " & _
        "l'estrazione: " & pila.Count)
    Console.WriteLine()
    Console.WriteLine("Esempio 2")
    pila = New Stack
    For i As Integer = 0 To 11
      pila.Push(matrice(i))
    Next
    Console.WriteLine("N. elementi " & _
        "presenti prima " & _
        "dell'estrazione: " & pila.Count)
    For i As Integer = 0 To 3
      Console.WriteLine(pila.Peek())
    Next
    Console.WriteLine("N. elementi " & _
        "presenti dopo " & _
        "l'estrazione: " & pila.Count)
    Console.ReadLine()
  End Sub
End Module
